home *** CD-ROM | disk | FTP | other *** search
/ ARRL Handbook 2008 12.0 / arrl_handbook_2008_cd.bin / program files / ARRL 2008 Handbook / Software / DOS Software / Chap 5 - a2d / FINDLPT.BAS < prev   
Encoding:
BASIC Source File  |  2002-04-24  |  578 b   |  18 lines
  1. 10 REM findlpt.bas - this program checks the bios data areas to find what
  2. 20 REM lpt ports dos has found
  3. 30 REM GARY C. SUTCLIFF, W9XT, JUNE 1993
  4. 40 DEF SEG = &H40  'DEFINE SEGMENT
  5. 50 PRINT
  6. 60 PRINT "DOS REPORTS LPT PORTS FOUND AT THE FOLLOWING ADDRESSES:"
  7. 70 PRINT
  8. 80 FOR I = 1 TO 3
  9. 90 X = PEEK(I+I+6)      'LOW BYTE OF I/O ADDRESS
  10. 100 Y = PEEK (I+I+7)    'HIGH BYTE OF I/O ADDRESS
  11. 110 IF Y=0 THEN 160     'IF Y = 0, NO MORE LPTS
  12. 120 X$ = HEX$(X)        'CONVERT BYTES TO HEX STRING
  13. 130 Y$ = HEX$(Y)
  14. 140 PRINT "     LPT";I, Y$;X$
  15. 150 NEXT I
  16. 160 PRINT
  17. 170 END
  18.